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Code and slides at: 


bit.ly/shiny-quickstart-1 


How to start with Shiny 


"1, How to build a Shiny app 


2. How to customize reactions 


HTML LSS 


3. How to customize appearance 
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EN studio Products Resources Pricing About Us Blog Q 


Shiny Apps for the Enterprise 


Shiny Dashboard Demo Location tracker Download monitor Supply and Demand 


N 
S | | | | | S | | OW Case à A dashboard built with Track locations over time Streaming download rates Forecast demand to plan 
Shiny. with streaming data. visualized as a bubble chart. resource allocation. 


www.rstudio.com/products/ 
shiny/shiny-user-showcase/ 


Industry Specific Shiny Apps 


Emergency Department Simulation Ebola Model 


au Dos G=. 
JC Wo 
Welcome to the Online ED Simulator! 


What We Do 


' SEL > 

Ë 
Economic Dashboard ER Optimization CDC Disease Monitor Ebola Model 
Economic forecasting with An app that models patient Alert thresholds and An epidemiological 
macroeconomic indicators. flow. automatic weekly updates. simulation. 


Pharmacometrics: some Shiny applications 
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Videos Interactive 
The R Series O'REILLY” O'REILLY’ tutorials 
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www.rstudio.com/resources/training/online-learning/ 


Understand the 
architecture 


Every Shiny app is maintained by a computer running R 


Iris k-means clustering 
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Every Shiny app is maintained by a computer running R 


ria R means Custer 


Iris k-means clustering 


Sepai Wide 
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Iris k-means clustering 


X Variable 
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oerver Instructions User Interface (Ul) 


App template 


The shortest viable shiny app 


ui <- fluidPage() 


server «- function(input, output) {} 


shinyApp(ul = ui, server = server) 


Close an apo 


ecce ~/Desktop/my-shiny - RStudio 
° + em - 
? ] ui.R ©  server.R Environment 


Q ⁄ C Reload App + 
1 
2 # This is the server logic for a Shiny web application. 
3 # You can find out more about building applications with 


Shiny here: 
4 # 
5 # http://shiny.rstudio.com 
6 # 
7 
8 library(shiny)| 
9 
19 - shinyServer(function(input, output) í 
11 
12-  output$distPlot <- renderPlot({ 
13 
14 # generate bins based on input$bins from ui.R 
15 X «- faithful[, 2] 


8:15 (Top Level) 


Console 


> shiny: :runApp() 


Listening on http://127.0.0.1:6314 


5 +. 


Files ¿ge 


History 


Packages 


Help Viewer 


Old Faithful Geyser Data 


Frequency 


Number of bins: 


1 


Histogram of x 


90 


A. my-shiny + 


50 
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Add elements to your app as arguments to 
f Lui dPage ) 


"Hello World" 


Build your app around 


Inputs and 
Outputs 


C fi 


127.0.0.1:3251 
Iris k-means clustering 


Build your app around inputs and outputs 


@ studio 


Build your app around inputs and outputs 


eoe Iris k-means clustering x Garrett 


C fi 127.0.0.1:3251 oz 


Iris k-means clustering 


X Variable 
Sepal.Length v 2 
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Sepal.Length 


Add elements to your app as arguments to 
f Lui dPage ) 


ui <- fluidPage( 
# *I[Input() functions, 
# *Qutput() functions 


) 


Create an input with an *Input() function. 
SliderInput(inputId = "num", 


Label = "Choose a number", 
value = 25, min = 1, max = 100) 


<div class="form-group shiny-input-container"> 


«label class="control-label” for="num">Choose a number</ labe l> 

<input class-"js-range-slider" id="num" data-min="1" data-max="100" 
data-from="25" data-step="1" data-grid="true” data-grid-num="9,9" 
data-grid-snap="false" data-prettify-separator="," data-keyboard-" true" 


data-keyboard-step="1.01010101010101"/> 
</div> 


Create an input with an input function. 


library (shiny) 202 


ui «- fluidPage( 


¿1 | Open in Browser ` > Publish 


server «- function(input, output) {} 


shinyApp(server = server, ui = ui) 


Create an input with an input function. 


4 | Open in Browser Publish 


Choose a number 


sliderInput(inputId = "num", C3 100 
Label = "Choose a number", — 
value = 25, min = 1, max = 100) 


Buttons 


Action 


actionButton() 
submitButton() 


Date range 


2014-01-24 tọ 2014-01-24 


dateRangeInput() 


Radio buttons 


(e) Choice 1 
Choice 2 
Choice 3 


radioButtons() 


Single checkbox 


Y Choice A 


checkboxInput() 


File input 


——i No file chosen 


fileInput() 


Select box 


Choice 1 


LL 


selectInput() 


Checkbox group Date input 


Y Choice 1 
Choice 2 
Choice 3 


2014-01-01 


checkboxGroupInput() dateInput() 


Numeric input Password Input 


1 e] | esse 


numericInput() passwordInput() 
Sliders Text input 
——— Enter text... 

25 75 | 
sliderInput() textInput() 


syntax 


Choose a number 


1 11 21 31 41 51 61 /1 81 91 100 


sliderInput(inputld = "num", label = "Choose a number", ..) 


input name Notice: label to Input specific 


(for internal use) À Id not ID display arguments 


?slīder Input 
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Build your app around inputs and outputs 


eoe Iris k-means clustering x Garrett 
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Iris k-means clustering 


X Variable 
Sepal.Length v 2 
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Sepal.Length 
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Function Inserts 


dataTableOutput() an interactive table 
htmlOutput() raw HTML 
imageOutput () image 
plotOutput() plot 
tableOutput() table 

textOutput () text 

uiOutput() a Shiny UI element 


verbatimlextOutput() text 


"Output() 


To display output, add it to f LuidPage(C) with an 
*Output() function 


plotOutput( hist") 


the type of output name to give to the 
to display output object 


Library (shiny) 


ui «- fluidPage( 
sliderInput(inputld = "num", 
Label = "Choose a number", 
value = 25, min = 1, max = 100), 
plotOutput ("hist") 
) 


Comma between 


arguments 


server <- function(input, output) i? 


shinyApp(ui = ui, server = server) 


| Open in Browser » Publish 


library(shiny) 


Choose a number 


1 ES 100 


ui <- fluidPagel 
sliderInput(inputld = "num", 
Label = "Choose a number", 
value = 25, min = 1, max = 100), 
plotOutput ("hist") 


server «- function(input, output) {} 


shinyApp(ui = ui, server = server) 


eoo 


5 | Open in Browser » Publish (S 


library(shiny) 
ui <- fluidPage( Choose a number 
sliderInput(inputId = "num', 
label = "Choose a number", | 0 2 31 41 51 61 71 81 91 100 
value = 25, min = 1, max = 100), 
plotOutput ("hist") 
) 


* Output() adds a space in 
the ui for an R object. 


server <- function(input, output) i? 


shinyApp(ui - ui, server - server) 


| Open in Browser > Publish (S 


library(shiny) 
"p f luidPage ( Choose a number 
sliderInput(inputld = "num", 
Label = ‘Choose a number, | 11 21 31 41 51 61 71 81 91 100 
value = 25, min = 1, max = 100), 
pLotOutput ("hist") 
) 


* Output( adds a space in 
the ul for an R object. 


server <- function(input, output) {} 


shinyApp(ui = ui, server = server) You must build the object 
in the server function 


Recap 


Begin each app with the template 


Add elements as arguments to fluidPage() 


Create reactive inputs with an *Input() 
function 


Display reactive results with an *Output() 
function 


Assemble outputs from inputs in the 
server function 


Tell the 


server 


how to assemble 
inputs into outputs 


Use 3 rules to write the server function 


server <- function(input, output) { 


Save objects to display to output$ 


server «- function(input, output) { 
output$hist «- 


Save objects to display to output$ 


output$hist 


plotOutput( hist") 


Build objects to display with render*(} 


server «- function(input, output) { 
output$hist <- renderPlot({ 


$) 


LR studio 


Use the render*() function that creates the type of 
output you wish to make. 


function creates 


(from a data frame, matrix, or 


renderDataTable() An interactive table Sire cate ie structure 


renderImage) An image (saved as a link to a source file) 
renderPlot() A plot 

renderPrint() A code block of printed output 
renderTable() A table Siner tabie-ike structure) © 

renderText() A character string 


renderUI() a Shiny Ul element 


render”) 


Builds reactive output to display in Ul 


renderPlot(4 hist(rnorm(100)) +) 


type of object to code block that builds 
build the object 


Build objects to display with render*(} 


server «- function(input, output) { 
output$hist <- renderPlot({ 
hist(rnorm(100)) 


$) 


Build objects to display with render*() 


server <- function(input, output) d 
output$hist <- renderPlot(f 
title «- "100 random normal values" 
hist(rnorm(100), main = title) 
f) 


Access input values with input$ 


input$num 


Access input values with input$ 


SLiderInputCinputId = "num',..) 


y 


input$num 


Inout values 


The input value changes whenever a user 


changes the input. 
= input$num 


= input$num = 50 
= input$num = 75 


Choose a number 


25 


Choose a number 
1 


Inout values 


The input value changes whenever a user 


changes the input. 
= input$num = 


= input$num = 
= input$num 


25 


50 
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Reactivity 101 


Reactivity automatically occurs whenever you use an 
input value to render an output object 


output$hist renderPlot(1 
input$num 


$) 


eoe 
¿1 | Open in Browser „> Publish 


input$num 


Choose a number 


Histogram of rnorm(input$num) 
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renderPlot({ 
hist(rnorm(input$num)) 


$) 


rnorm(input$num) 


| ¿4 | Open in Browser  —» Publish 
input$num 
Choose a number 


Histogram of rnorm(input$num) 
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renderPlot({ 
hist(rnorm(input$num)) 


$) 


rnorm(input$num) 


output$hist <- 


renderPlot ( 1 
hist(rnorm(input 


+) 


$num) ) 


input$num 


"d 


Hecap: Server 


Use the server function to assemble 
inputs into outputs. Follow 3 rules: 


1. Save the output that you build to output$ 
2. Build the output with a render*() function 


3. Access input values with input$ 


Create reactivity by using Inputs to build 
rendered Outputs 


Every Shiny app is maintained by a computer running R 
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Every Shiny app is maintained by a computer running R 


Iris k-means clustering 


X Variable 


Sepal.Length 


Y Variable 


Sepal.Length 


How to save your app 


One directory with every file the app needs: 
* app.H (your script which ends with a call to shinyApp() 
* datasets, images, css, helper scripts, etc. 


eoo 2 App-1 


a 


ui <- fluidPageC 
sliderInput(inputld = "num 


) 


label = "Choose a number”, 


value = 25, min = 1, max 
pLotOutputC"hist" ) 
) 


Two file apps 


f Lui dPage( 
sliderInput(inputld = "num" 
label = "Choose a number" 


value = 25, min = 1, max 
plotOutput(" hist") 
) 


100), 


server «- function(input, output) { 


output$hist «- renderPlot({ 


histCrnormCinput$num) ) 
f) 
j 


function(input, output) 4 
output$hist «- renderPlot({ 
hist(rnorm(input$num)) 
f) 


E 


shinyApp(ui = ui, server = server) } 


) 


) 


100), 


Two file apps 


One directory with two files: 


* server.R ° ul.R 
eoo I 2 App-1 A | 
La» J (22) Em) (#-)(Sr)le (2) (a 


| M App-1 S server.R 


^ ui.R 


Launch an app 


o 0 ~/Desktop/my-shiny - RStudio 
° + em - 
? ] ui.R ©  server.R Environment History 
3 €" pp Files Plots Packages Help Viewer 
1 


2 # This is the server logic for a Shiny web application. 
3 # You can find out more about building applications with 


Shiny here: 

4 # 

5 # http://shiny.rstudio.com 

6 # 

7 

8 library(Cshiny) 

9 

10- shinyServer(function(input, output) í 

11 

12-  output$distPlot <- renderPlot({ 

13 

14 4 generate bins based on input$bins from ui.R 
15 X «- faithful[, 2] 
8:15 (Top Level) R Script 
Console 


- 


A. my-shiny + 


Display options 


600 ~/Dropbox (RStudio)/RStudio/rst training/interactive-reports - RStudio 
Qi po Publish 
9 | ui.R Environment History 
a Z-|1 > RunApp (+ €T B import Dataset» yf Clear 
| # ui.R ur inn ©) Global Environment + 
"ege Data 
m M V Run in Viewer Pane 
3 shinyUI(fluidPage( O data 134 obs. of 5 variables 
4 Run External n 
5 titlePanel("What's in a name?") Odf 2747 obs. of 13 variables 
6 dui Odf1 33 obs. of 12 variables 
7 sidebarLayout( Ogarrett 171 obs. of 5 variables 
8 si debarPanel( Files Plots Packages Help Viewer 
a tevtTnnit("namo" "Namo*" valua — "Garrett" 
1:1 (Top Level) R Script 


Console 


> shiny::runApp('example-apps/finished-apps/2-names-app')D 
Listening on http://127.0.0.1:7039 
> shiny::runApp('example-apps/finished-apps/2-names-app')D 


Listening on http://127.0.0.1:7039 


ü foe wee gx 


k. interactive-reports + 


List * 


. Use M 
shinyapps.io 


PROPERTY OF 
Studio 


Shinyapps.io 
A server maintained by RStudio 
* free 
* easy to use 
* Secure 
* scalable 
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Variable 
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sninyapps.io 


eoe Iris k-means clustering x Garrett 
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Iris k-means clustering 
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Getting started guide 


shiny.rstudio.com/articles/shinyapps.html 


o“. Shiny - Getting started w x Garrett 


€ C fi shiny.rstudio.com/articles/shinyapps.html oz 


Shiny by RStudio 


TM Getting started with shinyapps.io 


TUTORIAL ADDED: 18 MAR 2014 


BY: ANDY KIPP 
ARTICLES 


Shinyapps.io is a platform as a service (PaaS) for hosting Shiny web apps (applications). This guide will 


GALLERY show you how to create a shinyapps.io account and deploy your first application to the cloud. 
REFERENCE Before you get started with shinyapps.io, you will need: 
DEPLOY e An R development environment, such as the RStudio IDE 


° (for Windows users only) RTools for building packages 
HELP e (for Mac users only) XCode Command Line Tools for building packages 
e (for Linux users only) GCC 
e The devtools R package (version 1.4 or later) 
e The latest version of the shinyapps R package 


How to install devtools 


Shinyapps.io uses the latest improvements to the devtools package. To use shinyapps.io, you must 
update devtools to version 1.4 or later. Toinstall devtools from CRAN, run the code below. Then 
restart your R session. 


install.packages('devtools') 


FREE STANDARD PROFESSIONAL 


5 Applications Unlimited Applications Unlimited Applications 
25 Active Hours 1000 Active Hours 5000 Active Hours 
© Community Support © Authentication 9 Authentication 
€ RStudio Branding © Multiple Instances © Multiple Users 
@ Email Support 9 Multiple Instances 


@ Custom Domains* 


@ EmailSupport 


Shiny Server 4 


www.rstudio.com/products/shiny/shiny-server/ 


A back end program that builds a linux web 
server specifically designed to host Shiny apps. 


Shiny Server Pro 


www.rstudio.com/products/shiny/shiny-server/ 


V Secure access - LDAP, GoogleAuth, SSL, and more 
V Performance - fine tune at app and server level 


Y Management - monitor and control resource use 
Y Support - direct priority support 


[ALA | 7 45 day 
fī F evaluation 
R R N free trial 


Library (shinyapps) 


€ 


Recap: Sharing 


Save your app in its own directory as 
app.R, or ul.R and server.R 


Host apps at shinyapps.io by: 
1. Sign up for a free shinyapps.io account 


2. Install the shinyapps package 


Build your own server with Shiny Server 
or Shiny Server Pro 


You now how to 


ui <- fluidPageO app.R 
server <- function(input, output) {} Yy 
shinyApp(ui = ui, server = server) 
shinyapps.lo 
output$ 
«A 
*Input ( ) render t ( ) 
- renderPlot( 4 
input$ hist(rnorm(input$num)) 


m 


Build an app Create interactions ohare your apps 


How to start with Shiny 


2. How to customize reactions 


HTML 


EE 3. How to customize appearance 


The Shiny Development Center 


